home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / techjock.arc / SCRNDEM.PAS < prev    next >
Pascal/Delphi Source File  |  1988-11-18  |  1KB  |  38 lines
  1. Program Test_Heap_Procs;
  2.  
  3. Uses Crt, FastTTT, DOS, WinTTT;
  4.  
  5. var
  6.   I : integer;
  7.   Ch : char;
  8. begin
  9.     Clrscr;
  10.     Offcursor;
  11.     Fillscreen(1,1,80,25,white,black,chr(176));
  12.     FBox(5,3,25,8,white,black,1);
  13.     SaveScreen(1);
  14.     WriteCenter(25,black,lightgray,'Press any key to see a part restore from the heap');
  15.     Ch := ReadKey;
  16.     Fillscreen(1,25,80,25,black,lightgray,' ');     {clear Message line}
  17.     PartRestoreScreen(1,5,3,25,8,50,15);
  18.     DisposeScreen(1);
  19.     WriteCenter(25,black,lightgray,'Press any key to see a screen move');
  20.     Ch := ReadKey;
  21.     MoveScreenBlock(50,15,70,20,55,3);
  22.     Fillscreen(50,15,70,20,white,black,chr(176));
  23.     WriteCenter(25,black,lightgray,'Press any key to see a screen copy');
  24.     Ch := ReadKey;
  25.     CopyScreenBlock(1,1,80,12,1,13);
  26.     WriteCenter(25,black,lightgray,'Press any key to see a partial screen scroll');
  27.     Ch := ReadKey;
  28.     For I := 1 to 24 do
  29.     begin
  30.         ScrollUp(39,1,80,25-I);
  31.         Delay(75);   {faster than an Izuzu!}
  32.     end;
  33.     WriteAT(40,22,white,black,'Run DemoTTT.exe for the main demo program');
  34.     WriteAT(40,23,white,black,'Technojocks Turbo Toolkit v4.0');
  35.     Fillscreen(1,25,80,25,white,black,' ');     {clear Message line}
  36.     Ch := Readkey;
  37.     OnCursor;
  38. end.